home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / progrmng / mlpmodul.sit / MacLogimoPlus Documentation / DEF1 Files / OutTerminal.DEF < prev    next >
Encoding:
Modula Definition  |  1990-06-14  |  1.0 KB  |  28 lines  |  [TEXT/PMED]
  1. DEFINITION MODULE OutTerminal; (* ETHZ Modula2 Compiler 1985 *)
  2.  
  3. (* contains formatting number output routines*)
  4. (* taken from the Lilith Handbook  13.1.1984 P. Fink *)
  5.  
  6. FROM SYSTEM IMPORT WORD, ADDRESS;
  7.  
  8. EXPORT QUALIFIED WriteT, WriteI,WriteB, WriteC, WriteH,
  9.                  WriteAC, WriteAH, dumphex;
  10.  
  11. PROCEDURE WriteT (VAR s: ARRAY OF CHAR; length: CARDINAL);
  12. PROCEDURE WriteI (value: INTEGER; length: CARDINAL);
  13. PROCEDURE WriteB (value: BOOLEAN; length: CARDINAL);
  14. PROCEDURE WriteC (value: CARDINAL; length: CARDINAL);
  15. PROCEDURE WriteH (value: WORD; length: CARDINAL);
  16.  
  17. PROCEDURE WriteAC (value: ADDRESS; length: CARDINAL);
  18. PROCEDURE WriteAH (value: ADDRESS; length: CARDINAL);
  19.  
  20. PROCEDURE dumphex
  21.    (VAR title: ARRAY OF CHAR;
  22.         start: ADDRESS; length: CARDINAL; printadr: ADDRESS; linelength: CARDINAL);
  23.  (* Hex+Ascii Dump routine: dumps from start to start+length-1.
  24.     title   is printed as title.  printadr:  first value to be printed at the left margin.
  25.     linelength: number of hex bytes per line. a 80-char terminal accommodates 12 *)
  26.  
  27. END OutTerminal.
  28.